/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / packages / upd-copyr.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 31 38 3a 33 | 31 20 31 39 39 35 0a 3b | 14:18:3|1 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 70 61 | 63 6b 61 67 65 73 2f 75 |/lisp/pa|ckages/u|
|00000090| 70 64 2d 63 6f 70 79 72 | 2e 65 6c 0a 3b 3b 3b 20 |pd-copyr|.el.;;; |
|000000a0| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 31 39 |emacs ve|rsion 19|
|000000b0| 2e 31 33 20 58 45 6d 61 | 63 73 20 4c 75 63 69 64 |.13 XEma|cs Lucid|
|000000c0| 2e 0a 3b 3b 3b 20 62 79 | 74 65 63 6f 6d 70 20 76 |..;;; by|tecomp v|
|000000d0| 65 72 73 69 6f 6e 20 32 | 2e 32 35 3b 20 31 2d 53 |ersion 2|.25; 1-S|
|000000e0| 65 70 2d 39 34 2e 0a 3b | 3b 3b 20 6f 70 74 69 6d |ep-94..;|;; optim|
|000000f0| 69 7a 61 74 69 6f 6e 20 | 69 73 20 6f 6e 2e 0a 3b |ization |is on..;|
|00000100| 3b 3b 20 74 68 69 73 20 | 66 69 6c 65 20 75 73 65 |;; this |file use|
|00000110| 73 20 6f 70 63 6f 64 65 | 73 20 77 68 69 63 68 20 |s opcode|s which |
|00000120| 64 6f 20 6e 6f 74 20 65 | 78 69 73 74 20 69 6e 20 |do not e|xist in |
|00000130| 45 6d 61 63 73 20 31 38 | 2e 0a 0a 28 69 66 20 28 |Emacs 18|...(if (|
|00000140| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 6d 61 |and (bou|ndp 'ema|
|00000150| 63 73 2d 76 65 72 73 69 | 6f 6e 29 0a 09 20 28 6f |cs-versi|on).. (o|
|00000160| 72 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |r (and (|boundp '|
|00000170| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 20 |epoch::v|ersion) |
|00000180| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 0a |epoch::v|ersion).|
|00000190| 09 20 20 20 20 20 28 73 | 74 72 69 6e 67 2d 6c 65 |.     (s|tring-le|
|000001a0| 73 73 70 20 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |ssp emac|s-versio|
|000001b0| 6e 20 22 31 39 22 29 29 | 29 0a 20 20 20 20 28 65 |n "19"))|).    (e|
|000001c0| 72 72 6f 72 20 22 54 68 | 69 73 20 66 69 6c 65 20 |rror "Th|is file |
|000001d0| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|000001e0| 20 45 6d 61 63 73 20 31 | 39 2e 22 29 29 0a 0a 28 | Emacs 1|9."))..(|
|000001f0| 64 65 66 63 6f 6e 73 74 | 20 63 6f 70 79 72 69 67 |defconst| copyrig|
|00000200| 68 74 2d 79 65 61 72 20 | 28 62 79 74 65 2d 63 6f |ht-year |(byte-co|
|00000210| 64 65 20 22 c0 20 c1 c2 | 4f 87 22 20 5b 63 75 72 |de ". ..|O." [cur|
|00000220| 72 65 6e 74 2d 74 69 6d | 65 2d 73 74 72 69 6e 67 |rent-tim|e-string|
|00000230| 20 2d 34 20 6e 69 6c 5d | 20 33 29 20 22 5c 0a 53 | -4 nil]| 3) "\.S|
|00000240| 74 72 69 6e 67 20 72 65 | 70 72 65 73 65 6e 74 69 |tring re|presenti|
|00000250| 6e 67 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 79 |ng the c|urrent y|
|00000260| 65 61 72 2e 22 29 0a 28 | 64 65 66 76 61 72 20 63 |ear.").(|defvar c|
|00000270| 6f 70 79 72 69 67 68 74 | 2d 64 6f 2d 6e 6f 74 2d |opyright|-do-not-|
|00000280| 64 69 73 74 75 72 62 20 | 22 46 72 65 65 20 53 6f |disturb |"Free So|
|00000290| 66 74 77 61 72 65 20 46 | 6f 75 6e 64 61 74 69 6f |ftware F|oundatio|
|000002a0| 6e 2c 20 49 6e 63 2e 22 | 20 22 5c 0a 2a 49 66 20 |n, Inc."| "\.*If |
|000002b0| 6e 6f 6e 2d 6e 69 6c 2c | 20 74 68 65 20 65 78 69 |non-nil,| the exi|
|000002c0| 73 74 69 6e 67 20 63 6f | 70 79 72 69 67 68 74 20 |sting co|pyright |
|000002d0| 68 6f 6c 64 65 72 20 69 | 73 20 63 68 65 63 6b 65 |holder i|s checke|
|000002e0| 64 20 61 67 61 69 6e 73 | 74 20 74 68 69 73 20 72 |d agains|t this r|
|000002f0| 65 67 65 78 70 2e 0a 49 | 66 20 69 74 20 64 6f 65 |egexp..I|f it doe|
|00000300| 73 20 6e 6f 74 20 6d 61 | 74 63 68 2c 20 74 68 65 |s not ma|tch, the|
|00000310| 6e 20 61 20 6e 65 77 20 | 63 6f 70 79 72 69 67 68 |n a new |copyrigh|
|00000320| 74 20 6c 69 6e 65 20 69 | 73 20 61 64 64 65 64 20 |t line i|s added |
|00000330| 77 69 74 68 20 74 68 65 | 20 63 6f 70 79 72 69 67 |with the| copyrig|
|00000340| 68 74 0a 68 6f 6c 64 65 | 72 20 73 65 74 20 74 6f |ht.holde|r set to|
|00000350| 20 74 68 65 20 76 61 6c | 75 65 20 6f 66 20 60 63 | the val|ue of `c|
|00000360| 6f 70 79 72 69 67 68 74 | 2d 77 68 6f 61 6d 69 27 |opyright|-whoami'|
|00000370| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 63 6f 70 79 |.").(def|var copy|
|00000380| 72 69 67 68 74 2d 77 68 | 6f 61 6d 69 20 6e 69 6c |right-wh|oami nil|
|00000390| 20 22 5c 0a 2a 41 20 73 | 74 72 69 6e 67 20 63 6f | "\.*A s|tring co|
|000003a0| 6e 74 61 69 6e 69 6e 67 | 20 74 68 65 20 6e 61 6d |ntaining| the nam|
|000003b0| 65 20 6f 66 20 74 68 65 | 20 6f 77 6e 65 72 20 6f |e of the| owner o|
|000003c0| 66 20 6e 65 77 20 63 6f | 70 79 72 69 67 68 74 20 |f new co|pyright |
|000003d0| 6e 6f 74 69 63 65 73 2e | 22 29 0a 28 64 65 66 76 |notices.|").(defv|
|000003e0| 61 72 20 63 6f 70 79 72 | 69 67 68 74 2d 6e 6f 74 |ar copyr|ight-not|
|000003f0| 69 63 65 2d 66 69 6c 65 | 20 6e 69 6c 20 22 5c 0a |ice-file| nil "\.|
|00000400| 2a 49 66 20 6e 6f 6e 2d | 6e 69 6c 2c 20 72 65 70 |*If non-|nil, rep|
|00000410| 6c 61 63 65 20 63 6f 70 | 79 69 6e 67 20 6e 6f 74 |lace cop|ying not|
|00000420| 69 63 65 73 20 77 69 74 | 68 20 74 68 69 73 20 66 |ices wit|h this f|
|00000430| 69 6c 65 2e 22 29 0a 28 | 64 65 66 76 61 72 20 63 |ile.").(|defvar c|
|00000440| 6f 70 79 72 69 67 68 74 | 2d 66 69 6c 65 73 2d 74 |opyright|-files-t|
|00000450| 6f 2d 69 67 6e 6f 72 65 | 2d 72 65 67 65 78 20 22 |o-ignore|-regex "|
|00000460| 6c 6f 61 64 64 65 66 73 | 2e 65 6c 24 22 20 22 5c |loaddefs|.el$" "\|
|00000470| 0a 2a 52 65 67 75 6c 61 | 72 20 65 78 70 72 65 73 |.*Regula|r expres|
|00000480| 73 69 6f 6e 20 66 6f 72 | 20 66 69 6c 65 73 20 74 |sion for| files t|
|00000490| 68 61 74 20 73 68 6f 75 | 6c 64 20 62 65 20 69 67 |hat shou|ld be ig|
|000004a0| 6e 6f 72 65 64 22 29 0a | 28 64 65 66 76 61 72 20 |nored").|(defvar |
|000004b0| 63 75 72 72 65 6e 74 2d | 67 70 6c 2d 76 65 72 73 |current-|gpl-vers|
|000004c0| 69 6f 6e 20 22 32 22 20 | 22 5c 0a 53 74 72 69 6e |ion "2" |"\.Strin|
|000004d0| 67 20 72 65 70 72 65 73 | 65 6e 74 69 6e 67 20 74 |g repres|enting t|
|000004e0| 68 65 20 63 75 72 72 65 | 6e 74 20 76 65 72 73 69 |he curre|nt versi|
|000004f0| 6f 6e 20 6f 66 20 74 68 | 65 20 47 50 4c 2e 22 29 |on of th|e GPL.")|
|00000500| 0a 28 64 65 66 76 61 72 | 20 63 6f 70 79 72 69 67 |.(defvar| copyrig|
|00000510| 68 74 2d 69 6e 68 69 62 | 69 74 2d 75 70 64 61 74 |ht-inhib|it-updat|
|00000520| 65 20 6e 69 6c 20 22 5c | 0a 49 66 20 6e 69 6c 2c |e nil "\|.If nil,|
|00000530| 20 61 73 6b 20 74 68 65 | 20 75 73 65 72 20 77 68 | ask the| user wh|
|00000540| 65 74 68 65 72 20 6f 72 | 20 6e 6f 74 20 74 6f 20 |ether or| not to |
|00000550| 75 70 64 61 74 65 20 74 | 68 65 20 63 6f 70 79 72 |update t|he copyr|
|00000560| 69 67 68 74 20 6e 6f 74 | 69 63 65 2e 0a 49 66 20 |ight not|ice..If |
|00000570| 74 68 65 20 75 73 65 72 | 20 68 61 73 20 73 61 69 |the user| has sai|
|00000580| 64 20 6e 6f 2c 20 77 65 | 20 73 65 74 20 74 68 69 |d no, we| set thi|
|00000590| 73 20 74 6f 20 74 20 6c | 6f 63 61 6c 6c 79 2e 22 |s to t l|ocally."|
|000005a0| 29 0a 28 64 65 66 76 61 | 72 20 63 6f 70 79 72 69 |).(defva|r copyri|
|000005b0| 67 68 74 2d 73 65 61 72 | 63 68 2d 6c 69 6d 69 74 |ght-sear|ch-limit|
|000005c0| 20 32 30 34 38 20 22 5c | 0a 50 6f 72 74 69 6f 6e | 2048 "\|.Portion|
|000005d0| 20 6f 66 20 66 69 6c 65 | 20 74 6f 20 73 65 61 72 | of file| to sear|
|000005e0| 63 68 20 66 6f 72 20 63 | 6f 70 79 72 69 67 68 74 |ch for c|opyright|
|000005f0| 20 6e 6f 74 69 63 65 73 | 22 29 0a 28 66 73 65 74 | notices|").(fset|
|00000600| 20 27 75 70 64 61 74 65 | 2d 63 6f 70 79 72 69 67 | 'update|-copyrig|
|00000610| 68 74 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |ht #[(&o|ptional |
|00000620| 72 65 70 6c 61 63 65 20 | 61 73 6b 2d 75 70 64 20 |replace |ask-upd |
|00000630| 61 73 6b 2d 79 65 61 72 | 29 20 22 08 ab 84 09 86 |ask-year|) ".....|
|00000640| 6c 01 5c 6e ab 87 c3 0c | 5c 6e 5c 22 86 6c 01 8a |l.\n....|\n\".l..|
|00000650| 8c 7e 88 65 62 88 65 0d | 64 5e 7d 88 c6 c7 89 89 |.~.eb.e.|d^}.....|
|00000660| 89 89 89 89 89 c8 1e 09 | 1e 5c 6e 1e 0b 1e 0c 1e |........|.\n.....|
|00000670| 0d 1e 0e 1e 0f 1e 10 1e | 11 1e 12 d3 d4 0e 15 d6 |........|........|
|00000680| d7 4f d8 d9 da 0e 15 d7 | c7 4f db b0 07 c7 c6 23 |.O......|.O.....#|
|00000690| ab c1 d6 94 d6 95 88 88 | dc 94 dc 95 7b 16 11 dd |........|....{...|
|000006a0| 95 16 5c 6e de 94 de 95 | 7b 16 10 df 94 16 0d c3 |..\n....|{.......|
|000006b0| 0e 20 0e 10 5c 22 89 16 | 0e ab 84 0e 0d aa 86 0e |. ..\"..|........|
|000006c0| 0c ae 82 0e 0d 16 0c 0e | 0b ae 86 0e 0e ad 82 0e |........|........|
|000006d0| 5c 6e 16 0b aa 28 0e 0b | 3f 16 0f 08 ac 8a 0e 0f |\n...(..|?.......|
|000006e0| ac 86 e1 e2 0e 15 5c 22 | 88 65 62 88 0e 0c ab 90 |......\"|.eb.....|
|000006f0| 0e 0b ab 8c 08 ac 84 e1 | e3 21 88 e4 20 82 6a 01 |........|.!.. .j.|
|00000700| 0e 0f ac 85 0e 0c 84 63 | 01 08 ab 8b e5 e6 c7 c6 |.......c|........|
|00000710| 23 65 62 88 83 63 01 0e | 0f ac 85 0e 5c 6e 83 63 |#eb..c..|....\n.c|
|00000720| 01 08 ab 84 e7 8b ab ff | 0e 0f ab a8 0e 09 20 88 |........|...... .|
|00000730| 0e 28 ae 83 e9 ea 21 16 | 10 0e 11 ab 86 0e 11 63 |.(....!.|.......c|
|00000740| 88 aa 83 eb 20 88 ec 63 | 88 8a ed 0e 10 ee b1 03 |.... ..c|........|
|00000750| 88 29 aa 9c 0e 2f ab 95 | d6 79 88 d3 f0 8a c7 7f |.).../..|.y......|
|00000760| 88 60 29 5c 22 88 dc 94 | dc 95 7c 88 aa 83 f1 63 |.`)\"...|..|....c|
|00000770| 88 0e 15 63 88 8a c7 7f | 88 69 0e 32 59 29 ab 8e |...c....|.i.2Y)..|
|00000780| f3 7a f4 55 ab 85 f5 63 | 88 aa 83 f6 63 88 e1 f7 |.z.U...c|....c...|
|00000790| 0e 2f ab 83 f8 aa 81 f9 | 0e 15 23 88 e4 20 88 e1 |./......|..#.. ..|
|000007a0| fa 21 88 fb dc 21 aa 87 | 08 3f ad 83 fc fd 21 2e |.!...!..|.?....!.|
|000007b0| 0c 87 22 20 5b 61 73 6b | 2d 75 70 64 20 63 6f 70 |.." [ask|-upd cop|
|000007c0| 79 72 69 67 68 74 2d 69 | 6e 68 69 62 69 74 2d 75 |yright-i|nhibit-u|
|000007d0| 70 64 61 74 65 20 62 75 | 66 66 65 72 2d 66 69 6c |pdate bu|ffer-fil|
|000007e0| 65 2d 74 72 75 65 6e 61 | 6d 65 20 73 74 72 69 6e |e-truena|me strin|
|000007f0| 67 2d 6d 61 74 63 68 20 | 63 6f 70 79 72 69 67 68 |g-match |copyrigh|
|00000800| 74 2d 66 69 6c 65 73 2d | 74 6f 2d 69 67 6e 6f 72 |t-files-|to-ignor|
|00000810| 65 2d 72 65 67 65 78 20 | 63 6f 70 79 72 69 67 68 |e-regex |copyrigh|
|00000820| 74 2d 73 65 61 72 63 68 | 2d 6c 69 6d 69 74 20 74 |t-search|-limit t|
|00000830| 20 6e 69 6c 20 28 6c 61 | 6d 62 64 61 20 6e 69 6c | nil (la|mbda nil|
|00000840| 20 28 67 6f 74 6f 2d 63 | 68 61 72 20 28 70 6f 69 | (goto-c|har (poi|
|00000850| 6e 74 2d 6d 69 6e 29 29 | 20 28 63 6f 6e 64 20 28 |nt-min))| (cond (|
|00000860| 63 77 2d 6d 69 6e 65 20 | 28 67 6f 74 6f 2d 63 68 |cw-mine |(goto-ch|
|00000870| 61 72 20 63 77 2d 6d 69 | 6e 65 29 29 20 28 28 6f |ar cw-mi|ne)) ((o|
|00000880| 72 20 28 61 6e 64 20 6c | 61 73 74 2d 63 77 20 28 |r (and l|ast-cw (|
|00000890| 67 6f 74 6f 2d 63 68 61 | 72 20 6c 61 73 74 2d 63 |goto-cha|r last-c|
|000008a0| 77 29 29 20 28 72 65 2d | 73 65 61 72 63 68 2d 66 |w)) (re-|search-f|
|000008b0| 6f 72 77 61 72 64 20 22 | 63 6f 70 79 72 69 67 68 |orward "|copyrigh|
|000008c0| 74 5b 5e 30 2d 39 5c 6e | 5d 2a 5c 5c 28 5b 2d 2c |t[^0-9\n|]*\\([-,|
|000008d0| 20 09 5d 2a 5c 5c 28 5b | 30 2d 39 5d 2b 5c 5c 29 | .]*\\([|0-9]+\\)|
|000008e0| 5c 5c 29 2b 22 20 6e 69 | 6c 20 74 29 29 20 28 61 |\\)+" ni|l t)) (a|
|000008f0| 6e 64 20 61 64 64 2d 6e | 65 77 20 28 62 65 67 69 |nd add-n|ew (begi|
|00000900| 6e 6e 69 6e 67 2d 6f 66 | 2d 6c 69 6e 65 20 32 29 |nning-of|-line 2)|
|00000910| 29 29 20 28 74 20 28 67 | 6f 74 6f 2d 63 68 61 72 |)) (t (g|oto-char|
|00000920| 20 28 70 6f 69 6e 74 2d | 6d 69 6e 29 29 29 29 29 | (point-|min)))))|
|00000930| 20 63 77 2d 70 6f 73 69 | 74 69 6f 6e 20 6c 61 73 | cw-posi|tion las|
|00000940| 74 2d 63 77 20 63 77 2d | 6d 69 6e 65 20 63 77 2d |t-cw cw-|mine cw-|
|00000950| 63 75 72 72 65 6e 74 20 | 63 75 72 72 65 6e 74 20 |current |current |
|00000960| 6d 69 6e 65 20 61 64 64 | 2d 6e 65 77 20 68 6f 6c |mine add|-new hol|
|00000970| 64 65 72 20 70 2d 73 74 | 72 69 6e 67 20 63 61 73 |der p-st|ring cas|
|00000980| 65 2d 66 6f 6c 64 2d 73 | 65 61 72 63 68 20 72 65 |e-fold-s|earch re|
|00000990| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|000009a0| 22 5e 5c 5c 28 2e 2a 5c | 5c 29 63 6f 70 79 72 69 |"^\\(.*\|\)copyri|
|000009b0| 67 68 74 2e 2a 5c 5c 28 | 22 20 63 6f 70 79 72 69 |ght.*\\(|" copyri|
|000009c0| 67 68 74 2d 79 65 61 72 | 20 30 20 32 20 22 5c 5c |ght-year| 0 2 "\\|
|000009d0| 29 3f 22 20 22 5c 5c 28 | 5b 30 2d 39 5d 5b 30 2d |)?" "\\(|[0-9][0-|
|000009e0| 39 5d 5c 5c 28 2c 20 09 | 5c 5c 29 2b 5c 5c 29 2a |9]\\(, .|\\)+\\)*|
|000009f0| 27 3f 22 20 22 5c 5c 28 | 5c 5c 28 22 20 22 5c 5c |'?" "\\(|\\(" "\\|
|00000a00| 29 5c 5c 7c 5b 30 2d 39 | 5d 5b 30 2d 39 5d 5c 5c |)\\|[0-9|][0-9]\\|
|00000a10| 29 5c 5c 73 20 2a 5c 5c | 28 5c 5c 53 20 2e 2a 5c |)\\s *\\|(\\S .*\|
|00000a20| 5c 29 24 22 20 31 20 35 | 20 37 20 36 20 63 6f 70 |\)$" 1 5| 7 6 cop|
|00000a30| 79 72 69 67 68 74 2d 64 | 6f 2d 6e 6f 74 2d 64 69 |yright-d|o-not-di|
|00000a40| 73 74 75 72 62 20 6d 65 | 73 73 61 67 65 20 22 43 |sturb me|ssage "C|
|00000a50| 6f 70 79 72 69 67 68 74 | 20 6e 6f 74 69 63 65 20 |opyright| notice |
|00000a60| 61 6c 72 65 61 64 79 20 | 69 6e 63 6c 75 64 65 73 |already |includes|
|00000a70| 20 25 73 2e 22 20 22 54 | 68 65 20 63 6f 70 79 72 | %s." "T|he copyr|
|00000a80| 69 67 68 74 20 69 73 20 | 75 70 20 74 6f 20 64 61 |ight is |up to da|
|00000a90| 74 65 22 20 63 6f 70 79 | 72 69 67 68 74 2d 63 68 |te" copy|right-ch|
|00000aa0| 65 63 6b 2d 6e 6f 74 69 | 63 65 20 73 65 61 72 63 |eck-noti|ce searc|
|00000ab0| 68 2d 66 6f 72 77 61 72 | 64 20 22 69 73 20 66 72 |h-forwar|d "is fr|
|00000ac0| 65 65 20 73 6f 66 74 77 | 61 72 65 22 20 28 28 62 |ee softw|are" ((b|
|00000ad0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 70 21 88 09 20 |yte-code| ".p!.. |
|00000ae0| 88 c2 c3 21 88 c4 c5 21 | ae 87 c6 c7 21 c8 4c 88 |...!...!|....!.L.|
|00000af0| c9 87 22 20 5b 70 6f 70 | 2d 74 6f 2d 62 75 66 66 |.." [pop|-to-buff|
|00000b00| 65 72 20 63 77 2d 70 6f | 73 69 74 69 6f 6e 20 73 |er cw-po|sition s|
|00000b10| 69 74 2d 66 6f 72 20 30 | 20 79 2d 6f 72 2d 6e 2d |it-for 0| y-or-n-|
|00000b20| 70 20 22 55 70 64 61 74 | 65 20 63 6f 70 79 72 69 |p "Updat|e copyri|
|00000b30| 67 68 74 3f 20 22 20 6d | 61 6b 65 2d 6c 6f 63 61 |ght? " m|ake-loca|
|00000b40| 6c 2d 76 61 72 69 61 62 | 6c 65 20 63 6f 70 79 72 |l-variab|le copyr|
|00000b50| 69 67 68 74 2d 69 6e 68 | 69 62 69 74 2d 75 70 64 |ight-inh|ibit-upd|
|00000b60| 61 74 65 20 74 20 6e 69 | 6c 5d 20 32 29 29 20 63 |ate t ni|l] 2)) c|
|00000b70| 6f 70 79 72 69 67 68 74 | 2d 77 68 6f 61 6d 69 20 |opyright|-whoami |
|00000b80| 72 65 61 64 2d 73 74 72 | 69 6e 67 20 22 4e 65 77 |read-str|ing "New|
|00000b90| 20 63 6f 70 79 72 69 67 | 68 74 20 68 6f 6c 64 65 | copyrig|ht holde|
|00000ba0| 72 3a 20 22 20 69 6e 64 | 65 6e 74 2d 66 6f 72 2d |r: " ind|ent-for-|
|00000bb0| 63 6f 6d 6d 65 6e 74 20 | 22 43 6f 70 79 72 69 67 |comment |"Copyrig|
|00000bc0| 68 74 20 28 43 29 20 22 | 20 22 20 22 20 22 5c 6e |ht (C) "| " " "\n|
|00000bd0| 22 20 72 65 70 6c 61 63 | 65 20 22 63 6f 70 79 72 |" replac|e "copyr|
|00000be0| 69 67 68 74 5c 5c 28 5b | 5e 30 2d 39 5d 2a 5c 5c |ight\\([|^0-9]*\\|
|00000bf0| 28 5b 2d 2c 20 09 5d 2a | 5c 5c 28 5b 30 2d 39 5d |([-, .]*|\\([0-9]|
|00000c00| 2b 5c 5c 29 5c 5c 29 2b | 5c 5c 29 22 20 22 2c 20 |+\\)\\)+|\\)" ", |
|00000c10| 22 20 66 69 6c 6c 2d 63 | 6f 6c 75 6d 6e 20 35 39 |" fill-c|olumn 59|
|00000c20| 20 36 30 20 22 5c 6e 3b | 3b 3b 22 20 22 5c 6e 20 | 60 "\n;|;;" "\n |
|00000c30| 20 22 20 22 43 6f 70 79 | 72 69 67 68 74 20 75 70 | " "Copy|right up|
|00000c40| 64 61 74 65 64 20 74 6f | 20 25 73 25 73 2e 22 20 |dated to| %s%s." |
|00000c50| 22 22 20 22 69 6e 63 6c | 75 64 65 20 22 20 22 54 |"" "incl|ude " "T|
|00000c60| 68 65 20 63 6f 70 79 72 | 69 67 68 74 20 68 61 73 |he copyr|ight has|
|00000c70| 20 62 65 65 6e 20 75 70 | 64 61 74 65 64 22 20 73 | been up|dated" s|
|00000c80| 69 74 2d 66 6f 72 20 65 | 72 72 6f 72 20 22 54 68 |it-for e|rror "Th|
|00000c90| 69 73 20 62 75 66 66 65 | 72 20 64 6f 65 73 20 6e |is buffe|r does n|
|00000ca0| 6f 74 20 63 6f 6e 74 61 | 69 6e 20 61 20 63 6f 70 |ot conta|in a cop|
|00000cb0| 79 72 69 67 68 74 20 6e | 6f 74 69 63 65 21 22 5d |yright n|otice!"]|
|00000cc0| 20 31 31 20 22 5c 0a 55 | 70 64 61 74 65 20 74 68 | 11 "\.U|pdate th|
|00000cd0| 65 20 63 6f 70 79 72 69 | 67 68 74 20 6e 6f 74 69 |e copyri|ght noti|
|00000ce0| 63 65 20 61 74 20 74 68 | 65 20 62 65 67 69 6e 6e |ce at th|e beginn|
|00000cf0| 69 6e 67 20 6f 66 20 74 | 68 65 20 62 75 66 66 65 |ing of t|he buffe|
|00000d00| 72 0a 74 6f 20 69 6e 64 | 69 63 61 74 65 20 74 68 |r.to ind|icate th|
|00000d10| 65 20 63 75 72 72 65 6e | 74 20 79 65 61 72 2e 20 |e curren|t year. |
|00000d20| 20 49 66 20 6f 70 74 69 | 6f 6e 61 6c 20 61 72 67 | If opti|onal arg|
|00000d30| 20 52 45 50 4c 41 43 45 | 20 69 73 20 67 69 76 65 | REPLACE| is give|
|00000d40| 6e 0a 28 69 6e 74 65 72 | 61 63 74 69 76 65 6c 79 |n.(inter|actively|
|00000d50| 2c 20 77 69 74 68 20 70 | 72 65 66 69 78 20 61 72 |, with p|refix ar|
|00000d60| 67 29 20 72 65 70 6c 61 | 63 65 20 74 68 65 20 79 |g) repla|ce the y|
|00000d70| 65 61 72 73 20 69 6e 20 | 74 68 65 20 6e 6f 74 69 |ears in |the noti|
|00000d80| 63 65 0a 72 61 74 68 65 | 72 20 74 68 61 6e 20 61 |ce.rathe|r than a|
|00000d90| 64 64 69 6e 67 20 74 68 | 65 20 63 75 72 72 65 6e |dding th|e curren|
|00000da0| 74 20 79 65 61 72 20 61 | 66 74 65 72 20 74 68 65 |t year a|fter the|
|00000db0| 6d 2e 0a 49 66 20 60 63 | 6f 70 79 72 69 67 68 74 |m..If `c|opyright|
|00000dc0| 2d 6e 6f 74 69 63 65 2d | 66 69 6c 65 27 20 69 73 |-notice-|file' is|
|00000dd0| 20 73 65 74 2c 20 74 68 | 65 20 63 6f 70 79 69 6e | set, th|e copyin|
|00000de0| 67 20 70 65 72 6d 69 73 | 73 69 6f 6e 73 20 66 6f |g permis|sions fo|
|00000df0| 6c 6c 6f 77 69 6e 67 20 | 74 68 65 0a 63 6f 70 79 |llowing |the.copy|
|00000e00| 72 69 67 68 74 20 61 72 | 65 20 72 65 70 6c 61 63 |right ar|e replac|
|00000e10| 65 64 20 61 73 20 77 65 | 6c 6c 2e 0a 0a 49 66 20 |ed as we|ll...If |
|00000e20| 6f 70 74 69 6f 6e 61 6c | 20 74 68 69 72 64 20 61 |optional| third a|
|00000e30| 72 67 75 6d 65 6e 74 20 | 41 53 4b 20 69 73 20 6e |rgument |ASK is n|
|00000e40| 6f 6e 2d 6e 69 6c 2c 20 | 74 68 65 20 75 73 65 72 |on-nil, |the user|
|00000e50| 20 69 73 20 70 72 6f 6d | 70 74 65 64 20 66 6f 72 | is prom|pted for|
|00000e60| 20 77 68 65 74 68 65 72 | 0a 6f 72 20 6e 6f 74 20 | whether|.or not |
|00000e70| 74 6f 20 75 70 64 61 74 | 65 20 74 68 65 20 63 6f |to updat|e the co|
|00000e80| 70 79 72 69 67 68 74 2e | 20 20 49 66 20 6f 70 74 |pyright.|  If opt|
|00000e90| 69 6f 6e 61 6c 20 66 6f | 75 72 74 68 20 61 72 67 |ional fo|urth arg|
|00000ea0| 75 6d 65 6e 74 20 41 53 | 4b 2d 59 45 41 52 20 69 |ument AS|K-YEAR i|
|00000eb0| 73 0a 6e 6f 6e 2d 6e 69 | 6c 2c 20 74 68 65 20 75 |s.non-ni|l, the u|
|00000ec0| 73 65 72 20 69 73 20 70 | 72 6f 6d 70 74 65 64 20 |ser is p|rompted |
|00000ed0| 66 6f 72 20 77 68 65 74 | 68 65 72 20 6f 72 20 6e |for whet|her or n|
|00000ee0| 6f 74 20 74 6f 20 72 65 | 70 6c 61 63 65 20 74 68 |ot to re|place th|
|00000ef0| 65 20 79 65 61 72 20 72 | 61 74 68 65 72 0a 74 68 |e year r|ather.th|
|00000f00| 61 6e 20 61 64 64 69 6e | 67 20 74 6f 20 69 74 2e |an addin|g to it.|
|00000f10| 22 20 22 2a 50 22 5d 29 | 0a 28 66 73 65 74 20 27 |" "*P"])|.(fset '|
|00000f20| 63 6f 70 79 72 69 67 68 | 74 2d 63 68 65 63 6b 2d |copyrigh|t-check-|
|00000f30| 6e 6f 74 69 63 65 20 23 | 5b 6e 69 6c 20 22 08 ab |notice #|[nil "..|
|00000f40| c2 c1 1a 65 62 88 c3 c4 | c1 c5 23 ab b1 c6 c7 c1 |...eb...|..#.....|
|00000f50| c5 23 ab 85 c8 79 88 aa | 8c c9 90 ca cb cc 21 21 |.#...y..|......!!|
|00000f60| 88 cd 20 91 88 60 12 c3 | ce c1 c5 23 ac 8c c9 90 |.. ..`..|...#....|
|00000f70| ca cb cf 21 21 88 cd 20 | 91 88 5c 6e 60 7c 88 d0 |...!!.. |..\n`|..|
|00000f80| 08 21 29 87 c6 d1 c1 c5 | 23 ad 8c c8 94 62 88 60 |.!).....|#....b.`|
|00000f90| c8 95 7c 88 0e 12 63 87 | 22 20 5b 63 6f 70 79 72 |..|...c.|" [copyr|
|00000fa0| 69 67 68 74 2d 6e 6f 74 | 69 63 65 2d 66 69 6c 65 |ight-not|ice-file|
|00000fb0| 20 6e 69 6c 20 62 65 67 | 20 73 65 61 72 63 68 2d | nil beg| search-|
|00000fc0| 66 6f 72 77 61 72 64 20 | 22 63 6f 70 79 72 69 67 |forward |"copyrig|
|00000fd0| 68 74 22 20 74 20 72 65 | 2d 73 65 61 72 63 68 2d |ht" t re|-search-|
|00000fe0| 66 6f 72 77 61 72 64 20 | 22 5e 5c 5c 28 5c 5c 73 |forward |"^\\(\\s|
|00000ff0| 20 5c 5c 73 3c 5c 5c 7c | 5c 5c 73 3e 5c 5c 29 2a | \\s<\\||\\s>\\)*|
|00001000| 24 22 20 31 20 22 2a 48 | 65 6c 70 2a 22 20 70 72 |$" 1 "*H|elp*" pr|
|00001010| 69 6e 63 20 73 75 62 73 | 74 69 74 75 74 65 2d 63 |inc subs|titute-c|
|00001020| 6f 6d 6d 61 6e 64 2d 6b | 65 79 73 20 22 49 20 64 |ommand-k|eys "I d|
|00001030| 6f 6e 27 74 20 6b 6e 6f | 77 20 77 68 65 72 65 20 |on't kno|w where |
|00001040| 74 68 65 20 63 6f 70 79 | 69 6e 67 20 6e 6f 74 69 |the copy|ing noti|
|00001050| 63 65 20 62 65 67 69 6e | 73 2e 5c 6e 50 75 74 20 |ce begin|s.\nPut |
|00001060| 70 6f 69 6e 74 20 74 68 | 65 72 65 20 61 6e 64 20 |point th|ere and |
|00001070| 68 69 74 20 5c 5c 5b 65 | 78 69 74 2d 72 65 63 75 |hit \\[e|xit-recu|
|00001080| 72 73 69 76 65 2d 65 64 | 69 74 5d 2e 22 20 72 65 |rsive-ed|it]." re|
|00001090| 63 75 72 73 69 76 65 2d | 65 64 69 74 20 22 30 32 |cursive-|edit "02|
|000010a0| 31 33 39 2c 20 55 53 41 | 2e 22 20 22 49 20 64 6f |139, USA|." "I do|
|000010b0| 6e 27 74 20 6b 6e 6f 77 | 20 77 68 65 72 65 20 74 |n't know| where t|
|000010c0| 68 65 20 63 6f 70 79 69 | 6e 67 20 6e 6f 74 69 63 |he copyi|ng notic|
|000010d0| 65 20 65 6e 64 73 2e 5c | 6e 50 75 74 20 70 6f 69 |e ends.\|nPut poi|
|000010e0| 6e 74 20 74 68 65 72 65 | 20 61 6e 64 20 68 69 74 |nt there| and hit|
|000010f0| 20 5c 5c 5b 65 78 69 74 | 2d 72 65 63 75 72 73 69 | \\[exit|-recursi|
|00001100| 76 65 2d 65 64 69 74 5d | 2e 22 20 69 6e 73 65 72 |ve-edit]|." inser|
|00001110| 74 2d 66 69 6c 65 20 22 | 3b 20 65 69 74 68 65 72 |t-file "|; either|
|00001120| 20 76 65 72 73 69 6f 6e | 20 5c 5c 28 2e 2b 5c 5c | version| \\(.+\\|
|00001130| 29 2c 20 6f 72 20 28 61 | 74 20 79 6f 75 72 20 6f |), or (a|t your o|
|00001140| 70 74 69 6f 6e 29 22 20 | 63 75 72 72 65 6e 74 2d |ption)" |current-|
|00001150| 67 70 6c 2d 76 65 72 73 | 69 6f 6e 5d 20 34 5d 29 |gpl-vers|ion] 4])|
|00001160| 0a 28 66 73 65 74 20 27 | 61 73 6b 2d 74 6f 2d 75 |.(fset '|ask-to-u|
|00001170| 70 64 61 74 65 2d 63 6f | 70 79 72 69 67 68 74 20 |pdate-co|pyright |
|00001180| 23 5b 6e 69 6c 20 22 c0 | c1 c2 89 23 88 c1 87 22 |#[nil ".|...#..."|
|00001190| 20 5b 75 70 64 61 74 65 | 2d 63 6f 70 79 72 69 67 | [update|-copyrig|
|000011a0| 68 74 20 6e 69 6c 20 74 | 5d 20 34 20 22 5c 0a 49 |ht nil t|] 4 "\.I|
|000011b0| 66 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 62 75 |f the cu|rrent bu|
|000011c0| 66 66 65 72 20 63 6f 6e | 74 61 69 6e 73 20 61 20 |ffer con|tains a |
|000011d0| 63 6f 70 79 72 69 67 68 | 74 20 6e 6f 74 69 63 65 |copyrigh|t notice|
|000011e0| 20 74 68 61 74 20 69 73 | 20 6f 75 74 20 6f 66 20 | that is| out of |
|000011f0| 64 61 74 65 2c 0a 61 73 | 6b 20 74 68 65 20 75 73 |date,.as|k the us|
|00001200| 65 72 20 69 66 20 69 74 | 20 73 68 6f 75 6c 64 20 |er if it| should |
|00001210| 62 65 20 75 70 64 61 74 | 65 64 20 77 69 74 68 20 |be updat|ed with |
|00001220| 60 75 70 64 61 74 65 2d | 63 6f 70 79 72 69 67 68 |`update-|copyrigh|
|00001230| 74 27 20 28 77 68 69 63 | 68 20 73 65 65 29 2e 0a |t' (whic|h see)..|
|00001240| 50 75 74 20 74 68 69 73 | 20 6f 6e 20 77 72 69 74 |Put this| on writ|
|00001250| 65 2d 66 69 6c 65 2d 68 | 6f 6f 6b 73 2e 22 5d 29 |e-file-h|ooks."])|
|00001260| 0a 28 70 72 6f 76 69 64 | 65 20 27 75 70 64 2d 63 |.(provid|e 'upd-c|
|00001270| 6f 70 79 72 29 0a       |                         |opyr).  |        |
+--------+-------------------------+-------------------------+--------+--------+